home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr25 / goserv.zip / GOFILTER.70S next >
Text File  |  1993-05-12  |  862b  |  19 lines
  1. /* Sample minimal GoServe filter program */
  2.  
  3. parse arg source, selector, selector2                   /* Get arguments */
  4. parse var source server port transaction who .           /* Often useful */
  5.  
  6. say who':' selector                             /* [show filter running] */
  7.  
  8. drive='d:'                                                 /* Data drive */
  9. dir=drive'\godata'port'\'   /* Data root directory (e.g. "d:\godata70\") */
  10.  
  11. /* This very simple filter just builds the full path name of a file from */
  12. /* the selector and returns that.  Note we do not put the full path in   */
  13. /* menus, as this could allow clients to access all files on the server  */
  14. /* machine, which is rarely desirable.                                   */
  15.  
  16. if selector='' then selector='mainmenu.'port           /* 'startup' case */
  17. return 'File name' dir''selector
  18.  
  19.